home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0001_Write to TWO Monitors.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  984 b   |  30 lines
  1. {
  2. > Hi I am looking For some help on use 2 monitors at the same time... 1
  3. > is mono and the other is vga.  I would like to just post a certain
  4. > screen on the mono and leave the vga like normal..
  5.  
  6. VGA Text mode memory begins at $b800, VGA Graphics memory at $A000, and
  7. MDA/Herc memory begins at $b000.  If you plan on running Text and Text,
  8. try something like this:
  9. }
  10. Type
  11.   WhichMonitor = (MDA, VGA);
  12.  
  13. Procedure ChangeCel (Row, Column, Foreground, Background, Character : Byte;
  14.                      Which : WhichMonitor);
  15. Var
  16.   Point : Word;
  17. begin
  18.   If Which = MDA then
  19.     Point := $b000
  20.   else
  21.     Point := $b800;
  22.   MemW[Point : (Row - 1) * 160 + Col * 2] :=
  23.                (Foreground + Background * 16) * 256 + Character;
  24.   end;
  25. {
  26. Of course, there are more optimized ways to do this, but this should
  27. portray the basic concept.  Herc Graphics and VGA Graphics would be
  28. done in much the same manner, but I don't have an Herc With my VGA to
  29. check it.
  30. }